home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac Magazin/MacEasy 19
/
Mac Magazin and MacEasy Magazine CD - Issue 19.iso
/
Wissenschaft & Technik
/
Open Prolog
/
Samples
/
Tak
< prev
Wrap
Text File
|
1994-04-18
|
170b
|
11 lines
tak(A,B,C,C) :-
A=<B,!.
tak(A,B,C,D) :-
tak1(A,B,C,E),!,
tak1(B,C,A,F),!,
tak1(C,A,B,G),!,
tak(E,F,G,D).
tak1(A,B,C,D) :-
E is A-1,
tak(E,B,C,D).